home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 1999 November / cd joystick no109 novembre 1999.iso / Data / sharewares / utilitaires / XQXSET50.ZIP / _SETUP.1 / XQ Delphi Options.xpl < prev    next >
Text File  |  1999-06-13  |  2KB  |  62 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Misc"
  5. "NAME"="Delphi CPU Window"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Enable Delphi 2.x CPU Window"
  8. "TEXT 2"="Enable Delphi 3.x CPU Window"
  9. "DESCRIPTION 1"="Activating this feature adds the command "CPU Window" to Delphi."
  10. "DESCRIPTION 2"="Simply select "CPU Window" from the "View" menu and you will see a Disassembly View of the current stack."
  11. "DESCRIPTION 3"="Note: Some menus don't work."
  12. "AUTHOR"="Xteq Systems"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  15. "COMMENT 2"="Version 1.0"
  16. "COMMENT 3"="from "Registry Dompteur" RegDom (c) 1996..98 by Horst Schmid, Horst_Schmid@compuserve.com"
  17.  
  18.  
  19.  
  20. sP1="HKCU\Software\Borland\Delphi\"
  21. sP2=".0\Debugging\ENABLECPU"
  22. Sub Plugin_Initialize 
  23.  s=RegReadValue(sP1 & "2" & sP2)
  24.  if s="1" then
  25.   SetUIElement 1,true
  26.  end if
  27.  
  28.  s=RegReadValue(sP1 & "3" & sP2)
  29.  if s="1" then
  30.   SetUIElement 2,true
  31.  end if
  32. End Sub
  33.  
  34.  
  35. Sub Plugin_CheckData(ElementIndex)
  36. End Sub
  37.  
  38.  
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  b=GetUIElement(1)
  42.  if b=true then
  43.   Call RegWriteValue(sP1 & "2" & sP2,"1",1)
  44.  else
  45.   Call RegWriteValue(sP1 & "2" & sP2,"0",1)
  46.  end if
  47.  
  48.  b=GetUIElement(2)
  49.  if b=true then
  50.   Call RegWriteValue(sP1 & "3" & sP2,"1",1)
  51.  else
  52.   Call RegWriteValue(sP1 & "3" & sP2,"0",1)
  53.  end if
  54. End Sub
  55.  
  56.  
  57. Sub Plugin_Terminate 
  58. End Sub
  59.  
  60.  
  61.  
  62.